10 REM ******************************** 15 REM ******************************** 20 REM ** ** 25 REM ** STUNDENPLAN 64 ** 30 REM ** -------------- ** 35 REM **============================** 40 REM ** ** 45 REM ** IDEE & PROGRAMM VON: ** 50 REM ** ** 55 REM ** GUIDO LEMMEL ** 60 REM ** BARMBEKER WEG 10 C ** 65 REM ** 1000 BERLIN 20 ** 70 REM ** ** 71 REM ** UEBERARBEITUNG, SPEED-UP ** 72 REM ** UND ARTIKEL: ** 73 REM ** ** 74 REM ** NIKOLAUS HEUSLER, 290689 ** 75 REM ** FUER MARKT & TECHNIK ** 76 REM ** 64'ER SONDERHEFT 46 ** 77 REM ** ** 78 REM ******************************** 80 REM ******************************** 85 : 90 REM - INITIALISIEREN - 95 : 100 CLR 105 DIM W$(48),FA$(19) 110 CS=58640:ZS=59903:BS=53265:HARD=0 115 FOR I=1 TO 6:READ WT$(I):NEXT I 120 FOR II=1 TO 18:READ FA$(II):NEXT II 125 BT$(0)=CHR$(15):BT$(1)=CHR$(14) 130 PS$=CHR$(27)+CHR$(16) 135 : 140 REMPOKE 808,234:GOTO 790 141 GOTO 790 145 : 150 REM - MELDUNGEN AUSGEBEN - 155 : 160 PRINT"[147][158][194]ETRIFFT: ";MELD$(1) 165 PRINT"[151][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"; 170 PRINT"[221] [221]"; 175 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]"; 180 PRINT" <[212][193][211][212][197]>" 185 PRINT"[145][145][145][145][151]";MELD$(2) 190 POKE 198,0:WAIT 198,1:POKE 198,0 195 RETURN 200 : 205 REM - FLOPPYSTATUS - 210 : 215 INPUT#15,F$(1),F$(2),F$(3),F$(4) 220 IF F$(1)="00" THEN RETURN 225 MELD$(1)="[198]LOPPY":MELD$(2)=F$(1)+","+F$(2)+","+F$(3)+","+F$(4) 230 IF F$(1)="01" THEN 240 235 IF F$(1)<>"0" THEN EIN=0 240 GOSUB 160 245 RETURN 250 : 255 REM - FLOPPY EINGESCHALTET ? - 260 : 265 POKE 768,61:OPEN 1,8,15,"I":CLOSE 1 270 POKE 768,139:IF ST<>-128 THEN RETURN 275 MELD$(1)="[198]LOPPY":MELD$(2)="[196]IE [198]LOPPY IST NICHT EINGESCHALTET !" 280 GOSUB 160:GOTO 265 285 RETURN 290 : 295 REM - DRUCKER EINGESCHALTET ? - 300 : 305 OPEN 1,4:POKE 768,61:PRINT#1:CLOSE 1 310 POKE 768,139:IF ST<>-128 THEN RETURN 315 MELD$(1)="[196]RUCKER":MELD$(2)="[196]ER [196]RUCKER IST NICHT EINGESCHALTET !" 320 GOSUB 160:GOTO 305 325 RETURN 330 : 335 REM - DATEN SPEICHERN - 340 : 345 GOSUB 265 350 OPEN 15,8,15,"S:STUNDENPLAN":CLOSE 15 355 OPEN 1,8,2,"STUNDENPLAN,S,W" 360 FOR I=1 TO 48:PRINT#1,W$(I):NEXT I 365 CLOSE 1:OPEN 15,8,15:GOSUB 215:CLOSE 15:RETURN 370 : 375 REM - DATEN LADEN - 380 : 385 GOSUB 265 390 OPEN 1,8,2,"STUNDENPLAN,S,R" 395 FOR I=1 TO 48:INPUT#1,W$(I):NEXT I 400 CLOSE 1:OPEN 15,8,15:GOSUB 215:CLOSE 15:RETURN 405 : 410 REM - DIRECTORY - AUS 64'ER 8/87 415 : 420 GOSUB 265:OPEN 15,8,15:GOSUB 215 425 IF F$(1)<>"00" THEN CLOSE 15:GOSUB 160:RETURN 430 CLOSE 15:OPEN 1,8,0,"$":PRINT"[147]":POKE 781,1:SYS 65478:GET A$,A$:E$=CHR$(0) 435 GETA$,A$,H$,L$:IFSTTHENSYS65484:CLOSE1:POKE198,0:WAIT198,1:POKE198,0:RETURN 440 PRINT ASC(H$+E$)+256*ASC(L$+E$); 445 GET A$,B$:IF A$ THEN PRINT A$B$;:GOTO 445 450 PRINT A$:GOTO 435 455 : 460 REM - FLOPPY-BEFEHLE - 465 : 470 GOSUB 265:PRINT#15,BE$:GOSUB 215:RETURN 475 GOSUB 265:PRINT#15,"S:STUNDENPLAN":GOSUB 215:RETURN 480 : 485 REM - EINGABEROUTINE - 490 : 495 B$="":GET B$:IF B$="" THEN 495 500 IF LEN(EI$)<>0 AND B$=CHR$(20) THEN EI$=LEFT$(EI$,LEN(EI$)-1):GOTO 535 505 IF B$=CHR$(13) OR B$="_" THEN RETURN 510 IF LEN(EI$)>LW THEN 495 515 IF B$=CHR$(20) THEN 495 520 IF LEN(EI$)=0 AND B$=" " THEN 495 525 IF B$="[147]" OR B$="" OR B$="[160]" OR B$="" OR B$="[145]" OR B$="" OR B$="[157]"THEN495 530 EI$=EI$+B$ 535 PRINT CHR$(20);B$;"[164]";:GOTO 495 540 : 545 REM - STUNDENPLAN AUSGEBEN - 550 : 555 PRINT"[176][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][174]" 560 PRINT"[221]:[221] [205][207][206] [221] [196][201][197] [221] [205][201][212] [221] [196][207][206] [221] [198][210][197] [221] [211][193][205] [221]" 565 PRINT"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]" 570 PRINT"[221]1[221]";W$(1);"[221]";W$(9);"[221]";W$(17);"[221]";W$(25);"[221]";W$(33);"[221]";W$(41);"[221]" 575 PRINT"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]" 580 PRINT"[221]2[221]";W$(2);"[221]";W$(10);"[221]";W$(18);"[221]";W$(26);"[221]";W$(34);"[221]";W$(42);"[221]" 585 PRINT"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]" 590 PRINT"[221]3[221]";W$(3);"[221]";W$(11);"[221]";W$(19);"[221]";W$(27);"[221]";W$(35);"[221]";W$(43);"[221]" 595 PRINT"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]" 600 PRINT"[221]4[221]";W$(4);"[221]";W$(12);"[221]";W$(20);"[221]";W$(28);"[221]";W$(36);"[221]";W$(44);"[221]" 605 PRINT"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]" 610 PRINT"[221]5[221]";W$(5);"[221]";W$(13);"[221]";W$(21);"[221]";W$(29);"[221]";W$(37);"[221]";W$(45);"[221]" 615 PRINT"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]" 620 PRINT"[221]6[221]";W$(6);"[221]";W$(14);"[221]";W$(22);"[221]";W$(30);"[221]";W$(38);"[221]";W$(46);"[221]" 625 PRINT"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]" 630 PRINT"[221]7[221]";W$(7);"[221]";W$(15);"[221]";W$(23);"[221]";W$(31);"[221]";W$(39);"[221]";W$(47);"[221]" 635 PRINT"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]" 640 PRINT"[221]8[221]";W$(8);"[221]";W$(16);"[221]";W$(24);"[221]";W$(32);"[221]";W$(40);"[221]";W$(48);"[221]" 645 PRINT"[173][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][189]" 650 RETURN 655 : 660 REM - BILDSCHIRMFUSS - 665 : 670 FOR A=1 TO 40:PRINT"[164]";:NEXT A 675 PRINT" [194]ITTE WAEHLEN [211]IE EINEN [205]ENUEPUNKT AUS [146]"; 680 FOR A=1 TO 40:PRINT"[163]";:NEXT A 685 POKE BS,27:RETURN 690 : 695 REM - STUNDENPLAN ERSTELLT ? - 700 : 705 IF EIN=0 THEN MELD$(1)="[211]TUNDENPLAN" 710 IF EIN=0 THEN MELD$(2)="[197]S WURDE KEIN [211]TUNDENPLAN EINGEGEBEN ! 715 [139] EIN[178]0 [167] [141] 160 720 [142] 725 : 730 [143] - BILDSCHIRMKOPF - 735 : 740 [153]"LOAD":[151] 53280,0:[151] 53281,0:[151] BS,11 745 [153]" OPENORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^WAIT" 750 [153]" (null) (null)(null)(null)(null)STR$VAL(null)(null)(null)ATN(null) 64 (null)WAIT" 755 [153]"ORTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTAN^"; 760 [153]"(null)(W) 1989 CHR$UIDO (null)EMMEL/(null)IKOLAUS LEFT$EUSLER(null)"; 765 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"; 770 [142] 775 : 780 [143] - HAUPTMENUE - 785 : 790 [141] 740 795 [153]"CONT ANDANDANDANDANDANDANDANDANDANDANDAND" 800 [153]"  LEFT$AUPTMENUE WAIT" 805 [153]" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 810 [153]"SYS  F1 WAIT (null)TUNDENPLAN EINGEBEN 815 PRINT"[158]  F3 [146] [211]TUNDENPLAN SEHEN/LOESCHEN 820 [153]"SYS  F5 WAIT (null)TUNDENPLAN DRUCKEN" 825 [153]"SYS  F7 WAIT STR$ISK-(null)ENUE" 830 [153]"SYS  F8 WAIT (null)ROGRAMM VERLASSENLIST 834 GOSUB 670:PRINT" [145][145][145][145][145][150][197]IN [154][205]ARKT & [212]ECHNIK [150][208]ROGRAMM, 64'ER 835 [153]" (null)ONDERHEFT CONT46DEF ATNLLE (null)ECHTE VORBEHALTEN 840 E$="":GET E$:IF E$="" THEN 840 845 E=ASC(E$) 850 IF E=140 THEN PRINT"[147]":SYS 64738 855 IF E<133 OR E>136 THEN 840 860 IF E=133 THEN GOSUB 1225 865 IF E=134 THEN GOSUB 1395 870 IF E=135 THEN GOSUB 1475 875 IF E=136 THEN GOSUB 900 880 GOTO 790 885 : 890 REM - DISK-MENUE - 895 : 900 GOSUB 740 905 PRINT"[154] [175][175][175][175][175][175][175][175][175][175][175][175]" 910 PRINT"  [196]ISK-[205]ENUE [146]" 915 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183]" 920 PRINT" [158] F1 [146] [196]IRECTORY SEHEN" 925 PRINT" [158] F2 [146] [211]TUNDENPLAN LADEN" 930 PRINT" [158] F3 [146] [211]TUNDENPLAN SPEICHERN" 935 PRINT" [158] F4 [146] [198]LOPPY-[203]OMMANDOS" 940 PRINT" [158] F5 [146] [211]TUNDENPLANDATEI LOESCHEN" 945 PRINT" [158] F6 [146] [200]AUPTMENUE[155]" 950 GOSUB 670 955 E$="":GET E$:IF E$="" THEN 955 960 E=ASC(E$) 965 IF E<133 OR E>139 OR E=136 THEN 955 970 IF E=133 THEN GOSUB 420 975 IF E=137 THEN GOSUB 1020 980 IF E=134 THEN GOSUB 1050 985 IF E=138 THEN GOSUB 1085 990 IF E=135 THEN GOSUB 1200 995 IF E=139 THEN RETURN 1000 GOTO 900 1005 : 1010 REM - STUNDENPLAN LADEN - 1015 : 1020 PRINT"[211]TUNDENPLAN LADEN[146]" 1025 EIN=1:GOSUB 385 1030 RETURN 1035 : 1040 REM - STUNDENPLAN SPEICHERN - 1045 : 1050 PRINT"[211]TUNDENPLAN SPEICHERN[146]" 1055 GOSUB 705:IF EIN=0 THEN RETURN 1060 GOSUB 345 1065 RETURN 1070 : 1075 REM - FLOPPY-KOMMANDOS - 1080 : 1085 GOSUB 740 1090 PRINT"[154] [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 1095 PRINT"  [198]LOPPY-[203]OMMANDOS [146]" 1100 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 1105 PRINT" [158] F1 [146] [203]OMMANDO" 1110 PRINT" [158] F3 [146] [196]ISK-[205]ENUE" 1115 PRINT"[155]":GOSUB 670 1120 E$="":GET E$:IF E$="" THEN 1120 1125 E=ASC(E$) 1130 IF E<133 OR E>134 THEN 1120 1135 IF E=133 THEN GOSUB 1165 1140 IF E=134 THEN RETURN 1145 GOTO 1085 1150 : 1155 REM - KOMMANDO - 1160 : 1165 LW=37:PRINT"[151]>[158][164]";:EI$="":GOSUB 495:PRINT 1170 IF B$="_" THEN RETURN 1175 BE$=EI$:OPEN 15,8,15:GOSUB 470 1180 GOSUB 215:CLOSE 15:RETURN 1185 : 1190 REM - STUNDENPLANDATEI LOESCHEN - 1195 : 1200 PRINT"[211]TUNDENPLANDATEI LOESCHEN[146]" 1205 OPEN 15,8,15:GOSUB 475 1210 GOSUB 215:CLOSE 15:RETURN 1215 : 1220 REM - STUNDENPLAN ERSTELLEN - 1225 : 1230 GOSUB 740:POKE BS,27 1235 PRINT"[154] [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 1240 PRINT"  [211]TUNDENPLAN EINGEBEN [146]" 1245 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][155]" 1250 FOR A=1 TO 40:PRINT"[163]";:NEXT A 1255 PRINT"[158]_[146] [200]AUPTMENUE [158][195][210][211][210] DOWN/UP[146] [193]USWAHL" 1260 PRINT"[158]^[146] [198]ACHEINGABE[155] [158]*[146] [203]ORREKTUR 1265 [129] A[178]1 [164] 40:[153]"TO";:[130] A 1270 NW[178].:DZ[178]1:WZ[178]1:SS[178]1 1275 SP[178]14[170]NW:[151] 211,0:[151] 214,14:[158] CS 1280 [129]WT[178]1[164]8:[153]""WT"CMD. (null)TUNDE AM "WT$(SS)[163]25)"POKE"W$(WT[170]SS[172]8[171]8):[130]WT 1285 [129] A[178]1 [164] 40:[153]"TO";:[130] A 1290 [151] 211,25:[151] 214,SP:[158] CS:[153]""FA$(WZ) 1295 [151]198,.:[146]198,1:[161] E$ 1300 [139] E$[178]"" [167] WZ[178]WZ[170]1 1304 [139] E$[178]"*" [167] [141]1700:[145]C%[137]1290,1346 1305 [139] E$[178]"ON" [167] WZ[178]WZ[171]1 1310 [139] E$[178][199](13) [167] W$(DZ)[178]FA$(WZ):SP[178]SP[170]1:NW[178]NW[170]1:DZ[178]DZ[170]1:[141]1730 1315 [139] E$[178]"^" [167]1350 1320 [139] E$[178]"_" [167] DZ[178]99 1325 [139] WZ[179]1 [167] WZ[178]18 1330 [139] WZ[177]18 [167] WZ[178]1 1335 [139] DZ[178]49 [167] EIN[178]1 1336 [139] DZ[177]48 [167][129] CO[178]1 [164] 48:W$(CO)[178]"POKE"[170]W$(CO)[170]"SYS":[130] CO:[142] 1340 [139]NW[178]8[167]SS[178]SS[170]1:NW[178].:[137]1346 1345 [137] 1290 1346 [129]ZL[178]14[164]22:[151]781,ZL:[158]ZS:[130]ZL:[137]1275 1350 [151] 211,25:[151] 214,SP:[158] CS:[153]" CMDCMDCMDCMDCMDTO";:EI$[178]"":LW[178]4 1355 [141] 495 1360 [139] B$[178]"_" [167] [142] 1365 [139] B$[178][199](13) [167] [153] [199](20):SP[178]SP[170]1:NW[178]NW[170]1:[141]1730 1370 [139] B$[178][199](13) [175] [195](EI$)[179]5 [167] EI$[178]EI$[170]" ":[137] 1370 1375 W$(DZ)[178]EI$:DZ[178]DZ[170]1:[137] 1335 1380 : 1385 [143] - STUNDENPLAN SEHEN - 1390 : 1395 [141] 705:[139] EIN[178]0 [167] [142] 1400 [153]"LOADSYS":[151] BS,11:[141] 555:[151] BS,27 1405 [153]"SYS F1 WAIT LEFT$AUPTMENUE SYS F3 WAIT ATNLLES LOESCHEN" 1410 E$[178]"":[161] E$:[139] E$[178]"" [167] 1410 1411 [139] E$[178]"H" [175] HARD[178]0 [167] [151] 781,21:[158] ZS:HARD[178]1:[137] 1410 1412 [139] E$[178]"H" [175] HARD[178]1 [167] [153]"ONONON":HARD[178]0:[137] 1405 1415 E[178][198](E$) 1420 [139] E[179]133 [176] E[177]134 [167] 1410 1425 [139] E[178]133 [167] [142] 1430 [139] E[178]134 [167] [151] 781,22:[158] ZS:[137] 1440 1435 [129] AL[178]1 [164] 48:[153]"LOAD(null)OESCHE:";W$(AL):W$(AL)[178]"":[130] AL:EIN[178]0:[142] 1440 [151] 211,0:[151] 214,23:[158] CS:[153]"LIST(null)IRKLICH ALLES LOESCHEN ? [J/N]WAIT" 1445 E$[178]"":[161] E$:[139] E$[178]"J" [167] 1435 1450 [139] E$[178]"N" [167] [151] 781,23:[158] ZS:[137] 1410 1455 [137] 1445 1460 [143] 1465 [143] - STUNDENPLAN AUSDRUCKEN - 1470 [143] 1475 [141] 705:[139] EIN[178]0 [167] [142] 1480 [141] 305 1485 [141] 740 1490 [153]"CONT ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND" 1495 [153]"  (null)TUNDENPLAN DRUCKEN WAIT" 1500 [153]" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 1505 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"; 1510 [153]"(null)ATNLENLEFT$(null)(null)(null)CHR$ ! STR$ER (null)TUNDENPLAN KANN NUR AUFWAIT(null)"; 1515 [153]"(null)(null)(null)(null) 801 UND KOMPATIBLEN STR$RUCKERN AUS- WAIT(null)"; 1520 [153]"(null)GEDRUCKT WERDEN. PEEKITTE ACHTEN (null)IE AUF WAIT(null)"; 1525 [153]"(null)RIGHT$HREN STR$RUCKERTYP !!! WAIT(null)"; 1530 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";:[151] BS,27 1535 [153]"LISTRIGHT$ST DAS (null)APIER SCHON JUSTIERT ? [J/NWAIT]" 1540 E$[178]"":[161] E$:[139] E$[178]"J" [167] 1555 1545 [139] E$[178]"_" [167] [142] 1550 [139] E$[179][177]"J" [167] 1540 1555 [153]"OPEN RIGHT$CH DRUCKE ..." 1560 [153]" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 1565 : 1570 [143] - DRUCKEN - 1575 : 1580 [159] 1,4,7:[152]1,PS$;[199](0);[199](40); 1585 [152]1,BT$(1),"(null)(null)(null)(null)STR$VAL(null)(null)(null)ATN(null)",BT$(0); 1590 [129] I[178]1 [164] 3:[152]1,[199](13):[130] I:[152]1,BT$(1) 1595 [152]1,PS$;[199](0);[199](0) 1600 [152]1,[199](27);"3";[199](23):[143] INCHES 1605 [157] 1 1610 [141] 555:[152]1,[199](27);"3";[199](25):[160] 1:[142] 1615 : 1620 [143] - DATAS WOCHENTAGE & FAECHER - 1625 : 1630 [131] "(null)ONTAG","STR$IENSTAG","(null)ITTWOCH","STR$ONNERSTAG","ASCREITAG","(null)AMSTAG" 1635 [131] "(null)ATHE","(null)USIK","(null)URS ","(null)PORT","(null)UNST","VALRDKD","VALNGL ","STR$TSCH" 1640 [131] "(null)HYSK","LENHEM ","PEEKIO ","CHR$ESCH","ASCRANZ","(null)AT ","(null)ELIG","RIGHT$NFOR" 1645 [131] "(null)IRTS","-----" 1690 : 1700 [143] **** KORREKTUR **** 1702 [143] ROUTINE VON NIKOLAUS HEUSLER 1704 [143] WE APOLOGIZE FOR ANY INCONVENIENCE 1710 C%[178]1:[139]DZ[178]1[167][142] 1712 [141]1730:DZ[178]DZ[171]1:SP[178]SP[171]1:NW[178]NW[171]1:[139]NW[178][177].[167][142] 1714 NW[178]7:SP[178]14:SS[178]SS[171]1:C%[178]2 1720 [142] 1730 [129]N1[178].[164]4:[151]55281[170]N1[170]SP[172]40,11:[151]55321[170]N1[170]SP[172]40,11:[130]:[142] 1740 [129]N1[178].[164]4:[129]N2[178].[164]7:[151]55881[170]N1[170]N2[172]40,11:[130]N2,N1:[142]